inherited frmGrupos: TfrmGrupos
  Left = 180
  Top = 142
  Width = 545
  Height = 445
  AutoScroll = True
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 374
    Width = 537
  end
  inherited Panel2: TPanel
    Width = 537
    Height = 374
    inherited Panel3: TPanel
      Width = 535
      Caption = 'Grupos'
      inherited GroupBox1: TGroupBox
        Left = 456
      end
    end
    inherited Panel4: TPanel
      Width = 535
      Height = 332
      TabStop = True
      object Label1: TLabel [0]
        Left = 10
        Top = 6
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label2: TLabel [1]
        Left = 13
        Top = 46
        Width = 28
        Height = 13
        Caption = 'Nome'
      end
      inherited DBGrid1: TDBGrid
        Top = 115
        Width = 527
        TabOrder = 4
      end
      inherited SbHints: TStatusBar
        Top = 309
        Width = 527
      end
      object EdtGruNome: TDBEdit
        Left = 13
        Top = 59
        Width = 280
        Height = 21
        Hint = 'Nome do grupo'
        CharCase = ecUpperCase
        DataField = 'GRU_NOME'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtGruNomeExit
      end
      object EdtGruCodigo: TDBEdit
        Left = 12
        Top = 20
        Width = 31
        Height = 21
        Hint = 'C'#243'digo do grupo '
        CharCase = ecUpperCase
        DataField = 'GRU_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtGruCodigoExit
      end
      object DBRGTipo: TDBRadioGroup
        Left = 298
        Top = 28
        Width = 200
        Height = 52
        Hint = 'Seleciona o tipo do grupo'
        Caption = 'Tipo do Grupo'
        Columns = 2
        DataField = 'GRU_TIPO'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Clientes'
          '&Ambos'
          '&Fornecedores'
          '&Outros')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Values.Strings = (
          'C'
          'A'
          'F'
          'O')
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Grupos
    Top = 207
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 136
    Top = 207
  end
  object SQLC_Grupos: TSQLClientDataSet
    CommandText = 'select * from GRUPO where gru_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 28
    Top = 266
    object SQLC_GruposGRU_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'GRU_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_GruposGRU_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'GRU_NOME'
      Required = True
      Size = 35
    end
    object SQLC_GruposGRU_TIPO: TStringField
      DisplayLabel = 'TIPO'
      FieldName = 'GRU_TIPO'
      Required = True
      Size = 1
    end
  end
end
